' s copiar e utilizar.
'===============================
Private sub cmd_click()
Dim Valor As String
Valor=FormatCurrency(",25",true,false,false)
Msgbox "Valor : " & Valor,vbInformation,"Ateno!"
End Sub